home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
LT.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
748b
|
18 lines
;Change linetype of multiple objects
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;(DEFUN C:LT(/ A C D)
(GRAPHSCR)
(PROMPT "\nSelect Object to be Changed...")
(SETQ A(SSGET))
(IF A(PROGN
(INITGET 1 "L C H D SD SD1 CE l c h d sd ce")
(SETQ C(GETKWORD "\nSelect...By(L)ayer.(C)ontinuous.(H)idden.(D)ashed.(SD)Small dash.(CE)nter "))
(IF(OR(= C "B")(= C "b"))(SETQ D '"BYLAYER"))
(IF(OR(= C "C")(= C "c"))(SETQ D '"CONTINUOUS"))
(IF(OR(= C "H")(= C "h"))(SETQ D '"HIDDEN"))
(IF(OR(= C "D")(= C "d"))(SETQ D '"DASHED"))
(IF(OR(= C "SD")(= C "sd"))(SETQ D '"SD"))
(IF(OR(= C "CE")(= C "ce"))(SETQ D '"CENTER"))
(COMMAND "CHANGE" A "" "PROP" "LT" D ""))))